home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / its / its-hira.el.z / its-hira.el
Encoding:
Text File  |  1998-05-21  |  19.9 KB  |  533 lines
  1. ;; Basic Roma-to-Kana Translation Table for Egg
  2. ;; Coded by S.Tomura, Electrotechnical Lab. (tomura@etl.go.jp)
  3.  
  4. ;; This file is part of Egg on Nemacs (Japanese Environment)
  5.  
  6. ;; Egg is distributed in the forms of patches to GNU
  7. ;; Emacs under the terms of the GNU EMACS GENERAL PUBLIC
  8. ;; LICENSE which is distributed along with GNU Emacs by the
  9. ;; Free Software Foundation.
  10.  
  11. ;; Egg is distributed in the hope that it will be useful,
  12. ;; but WITHOUT ANY WARRANTY; without even the implied
  13. ;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  14. ;; PURPOSE.  See the GNU EMACS GENERAL PUBLIC LICENSE for
  15. ;; more details.
  16.  
  17. ;; You should have received a copy of the GNU EMACS GENERAL
  18. ;; PUBLIC LICENSE along with Nemacs; see the file COPYING.
  19. ;; If not, write to the Free Software Foundation, 675 Mass
  20. ;; Ave, Cambridge, MA 02139, USA.
  21.  
  22. ;; 90.3.2   modified for Nemacs Ver.3.3.1
  23. ;;    by jiro@math.keio.ac.jp (TANAKA Jiro)
  24. ;;     proposal of keybinding for JIS symbols
  25. ;; 92.3.23  modified for Mule Ver.0.9.1 by K.Handa <handa@etl.go.jp>
  26. ;;    defrule -> its-defrule, define-its-mode -> its-define-mode
  27. ;; 92.7.6   modified for Mule Ver.0.9.5 by K.Handa <handa@etl.go.jp>
  28. ;;    New rules added.
  29.  
  30. (eval-when-compile (require 'egg))
  31.  
  32. (its-define-mode "roma-kana" "$B$"(B" t)
  33.  
  34. (its-defrule-select-mode-temporally "q" "downcase")
  35. (its-defrule-select-mode-temporally "Q" "zenkaku-downcase")
  36.  
  37. ;;; $B!V$C!W$NF~NO(B
  38.  
  39. (dolist (aa '("k" "s" "t" "h" "y" "r" "w" "g" "z" "d" "b"
  40.          "p" "c" "f" "j" "v"))
  41.   (its-defrule (concat aa aa) "$B$C(B" aa))
  42.  
  43. (its-defrule "tch"  "$B$C(B" "ch")
  44.  
  45. ;;; $B!V$s!W$NF~NO(B
  46.  
  47. (dolist (q1 '("b" "m" "p"))
  48.   (its-defrule (concat "m" q1) "$B$s(B" q1))
  49.  
  50. (its-defrule "N" "$B$s(B")
  51.  
  52. (its-defrule "n'" "$B$s(B")
  53.  
  54. (defvar enable-double-n-syntax nil "*\"nn\"$B$r(B\"$B$s(B\"$B$KJQ49$9$k(B")
  55.  
  56. (its-defrule "n" "$B$s(B")
  57. (its-defrule-conditional* "nn" "$B$s(B" nil
  58.               (enable-double-n-syntax "$B$s(B")
  59.               (t nil))
  60.  
  61. ;; 92.7.6 by Y.Kawabe
  62. ;;(dolist (aa '("k" "s" "t" "c" "h" "f" "m" "y" "r" "l"
  63. ;;          "w" "g" "z" "j" "d" "b" "v" "p" "x"))
  64. ;;  (its-defrule (concat "n" aa) "$B$s(B" aa))
  65. ;; end of patch
  66.  
  67. (let ((small '"x" ))
  68.   (its-defrule (concat small "a") "$B$!(B")
  69.   (its-defrule (concat small "i") "$B$#(B")
  70.   (its-defrule (concat small "u") "$B$%(B")
  71.   (its-defrule (concat small "e") "$B$'(B")
  72.   (its-defrule (concat small "o") "$B$)(B")
  73.   (its-defrule (concat small "ya") "$B$c(B")
  74.   (its-defrule (concat small "yu") "$B$e(B")
  75.   (its-defrule (concat small "yo") "$B$g(B")
  76.   (its-defrule (concat small "tu") "$B$C(B")
  77.   (its-defrule (concat small "tsu") "$B$C(B")
  78.   (its-defrule (concat small "wa") "$B$n(B")
  79.   )
  80.  
  81. (its-defrule   "a"    "$B$"(B")
  82. (its-defrule   "i"    "$B$$(B")
  83. (its-defrule   "u"    "$B$&(B")
  84. (its-defrule   "e"    "$B$((B")
  85. (its-defrule   "o"    "$B$*(B")
  86. (its-defrule   "ka"   "$B$+(B")
  87. (its-defrule   "ki"   "$B$-(B")
  88. (its-defrule   "ku"   "$B$/(B")
  89. (its-defrule   "ke"   "$B$1(B")
  90. (its-defrule   "ko"   "$B$3(B")
  91. (its-defrule   "kya"  "$B$-$c(B")
  92. (its-defrule   "kyu"  "$B$-$e(B")
  93. (its-defrule   "kye"  "$B$-$'(B")
  94. (its-defrule   "kyo"  "$B$-$g(B")
  95. (its-defrule   "sa"   "$B$5(B")
  96. (its-defrule   "si"   "$B$7(B")
  97. (its-defrule   "su"   "$B$9(B")
  98. (its-defrule   "se"   "$B$;(B")
  99. (its-defrule   "so"   "$B$=(B")
  100. (its-defrule   "sya"  "$B$7$c(B")
  101. (its-defrule   "syu"  "$B$7$e(B")
  102. (its-defrule   "sye"  "$B$7$'(B")
  103. (its-defrule   "syo"  "$B$7$g(B")
  104. (its-defrule   "sha"  "$B$7$c(B")
  105. (its-defrule   "shi"  "$B$7(B")
  106. (its-defrule   "shu"  "$B$7$e(B")
  107. (its-defrule   "she"  "$B$7$'(B")
  108. (its-defrule   "sho"  "$B$7$g(B")
  109. (its-defrule   "ta"   "$B$?(B")
  110. (its-defrule   "ti"   "$B$A(B")
  111. (its-defrule   "tu"   "$B$D(B")
  112. (its-defrule   "te"   "$B$F(B")
  113. (its-defrule   "to"   "$B$H(B")
  114. (its-defrule   "tya"  "$B$A$c(B")
  115. (its-defrule   "tyi"  "$B$F$#(B")
  116. (its-defrule   "tyu"  "$B$A$e(B")
  117. (its-defrule   "tye"  "$B$A$'(B")
  118. (its-defrule   "tyo"  "$B$A$g(B")
  119. (its-defrule   "tsu"  "$B$D(B")
  120. (its-defrule   "cha"  "$B$A$c(B")
  121. (its-defrule   "chi"  "$B$A(B")
  122. (its-defrule   "chu"  "$B$A$e(B")
  123. (its-defrule   "che"  "$B$A$'(B")
  124. (its-defrule   "cho"  "$B$A$g(B")
  125. (its-defrule   "na"   "$B$J(B")
  126. (its-defrule   "ni"   "$B$K(B")
  127. (its-defrule   "nu"   "$B$L(B")
  128. (its-defrule   "ne"   "$B$M(B")
  129. (its-defrule   "no"   "$B$N(B")
  130. (its-defrule   "nya"  "$B$K$c(B")
  131. (its-defrule   "nyu"  "$B$K$e(B")
  132. (its-defrule   "nye"  "$B$K$'(B")
  133. (its-defrule   "nyo"  "$B$K$g(B")
  134. (its-defrule   "ha"   "$B$O(B")
  135. (its-defrule   "hi"   "$B$R(B")
  136. (its-defrule   "hu"   "$B$U(B")
  137. (its-defrule   "he"   "$B$X(B")
  138. (its-defrule   "ho"   "$B$[(B")
  139. (its-defrule   "hya"  "$B$R$c(B")
  140. (its-defrule   "hyu"  "$B$R$e(B")
  141. (its-defrule   "hye"  "$B$R$'(B")
  142. (its-defrule   "hyo"  "$B$R$g(B")
  143. (its-defrule   "fa"   "$B$U$!(B")
  144. (its-defrule   "fi"   "$B$U$#(B")
  145. (its-defrule   "fu"   "$B$U(B")
  146. (its-defrule   "fe"   "$B$U$'(B")
  147. (its-defrule   "fo"   "$B$U$)(B")
  148. (its-defrule   "ma"   "$B$^(B")
  149. (its-defrule   "mi"   "$B$_(B")
  150. (its-defrule   "mu"   "$B$`(B")
  151. (its-defrule   "me"   "$B$a(B")
  152. (its-defrule   "mo"   "$B$b(B")
  153. (its-defrule   "mya"  "$B$_$c(B")
  154. (its-defrule   "myu"  "$B$_$e(B")
  155. (its-defrule   "mye"  "$B$_$'(B")
  156. (its-defrule   "myo"  "$B$_$g(B")
  157. (its-defrule   "ya"   "$B$d(B")
  158. (its-defrule   "yi"   "$B$$(B")
  159. (its-defrule   "yu"   "$B$f(B")
  160. (its-defrule   "ye"   "$B$$$'(B")
  161. (its-defrule   "yo"   "$B$h(B")
  162. (its-defrule   "ra"   "$B$i(B")
  163. (its-defrule   "ri"   "$B$j(B")
  164. (its-defrule   "ru"   "$B$k(B")
  165. (its-defrule   "re"   "$B$l(B")
  166. (its-defrule   "ro"   "$B$m(B")
  167. (its-defrule   "la"   "$B$i(B")
  168. (its-defrule   "li"   "$B$j(B")
  169. (its-defrule   "lu"   "$B$k(B")
  170. (its-defrule   "le"   "$B$l(B")
  171. (its-defrule   "lo"   "$B$m(B")
  172. (its-defrule   "rya"  "$B$j$c(B")
  173. (its-defrule   "ryu"  "$B$j$e(B")
  174. (its-defrule   "rye"  "$B$j$'(B")
  175. (its-defrule   "ryo"  "$B$j$g(B")
  176. (its-defrule   "lya"  "$B$j$c(B")
  177. (its-defrule   "lyu"  "$B$j$e(B")
  178. (its-defrule   "lye"  "$B$j$'(B")
  179. (its-defrule   "lyo"  "$B$j$g(B")
  180. (its-defrule   "wa"   "$B$o(B")
  181. (its-defrule   "wi"   "$B$p(B")
  182. (its-defrule   "wu"   "$B$&(B")
  183. (its-defrule   "we"   "$B$q(B")
  184. (its-defrule   "wo"   "$B$r(B")
  185. (its-defrule   "ga"   "$B$,(B")
  186. (its-defrule   "gi"   "$B$.(B")
  187. (its-defrule   "gu"   "$B$0(B")
  188. (its-defrule   "ge"   "$B$2(B")
  189. (its-defrule   "go"   "$B$4(B")
  190. (its-defrule   "gya"  "$B$.$c(B")
  191. (its-defrule   "gyu"  "$B$.$e(B")
  192. (its-defrule   "gye"  "$B$.$'(B")
  193. (its-defrule   "gyo"  "$B$.$g(B")
  194. (its-defrule   "za"   "$B$6(B")
  195. (its-defrule   "zi"   "$B$8(B")
  196. (its-defrule   "zu"   "$B$:(B")
  197. (its-defrule   "ze"   "$B$<(B")
  198. (its-defrule   "zo"   "$B$>(B")
  199. (its-defrule   "zya"  "$B$8$c(B")
  200. (its-defrule   "zyu"  "$B$8$e(B")
  201. (its-defrule   "zye"  "$B$8$'(B")
  202. (its-defrule   "zyo"  "$B$8$g(B")
  203. (its-defrule   "ja"   "$B$8$c(B")
  204. (its-defrule   "ji"   "$B$8(B")
  205. (its-defrule   "ju"   "$B$8$e(B")
  206. (its-defrule   "je"   "$B$8$'(B")
  207. (its-defrule   "jo"   "$B$8$g(B")
  208. ;; 92.7.6 by Y.Kawabe
  209. (its-defrule   "jya"   "$B$8$c(B")
  210. (its-defrule   "jyu"   "$B$8$e(B")
  211. (its-defrule   "jye"   "$B$8$'(B")
  212. (its-defrule   "jyo"   "$B$8$g(B")
  213. ;; end of patch
  214. (its-defrule   "da"   "$B$@(B")
  215. (its-defrule   "di"   "$B$B(B")
  216. (its-defrule   "du"   "$B$E(B")
  217. (its-defrule   "de"   "$B$G(B")
  218. (its-defrule   "do"   "$B$I(B")
  219. (its-defrule   "dya"  "$B$B$c(B")
  220. (its-defrule   "dyi"  "$B$G$#(B")
  221. (its-defrule   "dyu"  "$B$B$e(B")
  222. (its-defrule   "dye"  "$B$B$'(B")
  223. (its-defrule   "dyo"  "$B$B$g(B")
  224. (its-defrule   "ba"   "$B$P(B")
  225. (its-defrule   "bi"   "$B$S(B")
  226. (its-defrule   "bu"   "$B$V(B")
  227. (its-defrule   "be"   "$B$Y(B")
  228. (its-defrule   "bo"   "$B$\(B")
  229. (its-defrule   "va"   "$B%t$!(B")
  230. (its-defrule   "vi"   "$B%t$#(B")
  231. (its-defrule   "vu"   "$B%t(B")
  232. (its-defrule   "ve"   "$B%t$'(B")
  233. (its-defrule   "vo"   "$B%t$)(B")
  234. (its-defrule   "bya"  "$B$S$c(B")
  235. (its-defrule   "byu"  "$B$S$e(B")
  236. (its-defrule   "bye"  "$B$S$'(B")
  237. (its-defrule   "byo"  "$B$S$g(B")
  238. (its-defrule   "pa"   "$B$Q(B")
  239. (its-defrule   "pi"   "$B$T(B")
  240. (its-defrule   "pu"   "$B$W(B")
  241. (its-defrule   "pe"   "$B$Z(B")
  242. (its-defrule   "po"   "$B$](B")
  243. (its-defrule   "pya"  "$B$T$c(B")
  244. (its-defrule   "pyu"  "$B$T$e(B")
  245. (its-defrule   "pye"  "$B$T$'(B")
  246. (its-defrule   "pyo"  "$B$T$g(B")
  247. (its-defrule   "kwa"  "$B$/$n(B")
  248. (its-defrule   "kwi"  "$B$/$#(B")
  249. (its-defrule   "kwu"  "$B$/(B")
  250. (its-defrule   "kwe"  "$B$/$'(B")
  251. (its-defrule   "kwo"  "$B$/$)(B")
  252. (its-defrule   "gwa"  "$B$0$n(B")
  253. (its-defrule   "gwi"  "$B$0$#(B")
  254. (its-defrule   "gwu"  "$B$0(B")
  255. (its-defrule   "gwe"  "$B$0$'(B")
  256. (its-defrule   "gwo"  "$B$0$)(B")
  257. (its-defrule   "tsa"  "$B$D$!(B")
  258. (its-defrule   "tsi"  "$B$D$#(B")
  259. (its-defrule   "tse"  "$B$D$'(B")
  260. (its-defrule   "tso"  "$B$D$)(B")
  261. (its-defrule   "xka"  "$B%u(B")
  262. (its-defrule   "xke"  "$B%v(B")
  263. (its-defrule   "xti"  "$B$F$#(B")
  264. (its-defrule   "xdi"  "$B$G$#(B")
  265. (its-defrule   "xdu"  "$B$I$%(B")
  266. (its-defrule   "xde"  "$B$G$'(B")
  267. (its-defrule   "xdo"  "$B$I$)(B")
  268. (its-defrule   "xwi"  "$B$&$#(B")
  269. (its-defrule   "xwe"  "$B$&$'(B")
  270. (its-defrule   "xwo"  "$B$&$)(B")
  271.  
  272. ;;; Zenkaku Symbols
  273.  
  274. (its-defrule   "1"   "$B#1(B")
  275. (its-defrule   "2"   "$B#2(B")
  276. (its-defrule   "3"   "$B#3(B")
  277. (its-defrule   "4"   "$B#4(B")
  278. (its-defrule   "5"   "$B#5(B")
  279. (its-defrule   "6"   "$B#6(B")
  280. (its-defrule   "7"   "$B#7(B")
  281. (its-defrule   "8"   "$B#8(B")
  282. (its-defrule   "9"   "$B#9(B")
  283. (its-defrule   "0"   "$B#0(B")
  284.  
  285. ;;(its-defrule   " "   "$B!!(B")
  286. (its-defrule   "!"   "$B!*(B")
  287. (its-defrule   "@"   "$B!w(B")
  288. (its-defrule   "#"   "$B!t(B")
  289. (its-defrule   "$"   "$B!p(B")
  290. (its-defrule   "%"   "$B!s(B")
  291. (its-defrule   "^"   "$B!0(B")
  292. (its-defrule   "&"   "$B!u(B")
  293. (its-defrule   "*"   "$B!v(B")
  294. (its-defrule   "("   "$B!J(B")
  295. (its-defrule   ")"   "$B!K(B")
  296. (its-defrule   "-"   "$B!<(B") ;;; JIS 213c  ;;;(its-defrule   "-"   "$B!](B")
  297. (its-defrule   "="   "$B!a(B")
  298. (its-defrule   "`"   "$B!.(B")
  299. (its-defrule   "\\"  "$B!o(B")
  300. (its-defrule   "|"   "$B!C(B")
  301. (its-defrule   "_"   "$B!2(B")
  302. (its-defrule   "+"   "$B!\(B")
  303. (its-defrule   "~"   "$B!1(B")
  304. (its-defrule   "["    "$B!V(B")  ;;(its-defrule   "["   "$B!N(B")
  305. (its-defrule   "]"    "$B!W(B")  ;;(its-defrule   "]"   "$B!O(B")
  306. (its-defrule   "{"   "$B!P(B")
  307. (its-defrule   "}"   "$B!Q(B")
  308. (its-defrule   ":"   "$B!'(B")
  309. (its-defrule   ";"   "$B!((B")
  310. (its-defrule   "\""  "$B!I(B")
  311. (its-defrule   "'"   "$B!G(B")
  312. (its-defrule   "<"   "$B!c(B")
  313. (its-defrule   ">"   "$B!d(B")
  314. (its-defrule   "?"   "$B!)(B")
  315. (its-defrule   "/"   "$B!?(B")
  316.  
  317. (defvar use-kuten-for-period t "*$B%T%j%*%I$r6gE@$KJQ49$9$k(B")
  318. (defvar use-touten-for-comma t "*$B%3%s%^$rFIE@$KJQ49$9$k(B")
  319.  
  320. (its-defrule-conditional "."
  321.   (use-kuten-for-period "$B!#(B")
  322.   (t "$B!%(B"))
  323.  
  324. (its-defrule-conditional ","
  325.   (use-touten-for-comma "$B!"(B")
  326.   (t "$B!$(B"))
  327.  
  328. ;;; Escape character to Zenkaku inputs
  329.  
  330. (defvar zenkaku-escape "Z")
  331.  
  332. ;;; Escape character to Hankaku inputs
  333.  
  334. (defvar hankaku-escape "~")
  335. ;;;
  336. ;;; Zenkaku inputs
  337. ;;;
  338.  
  339. (its-defrule (concat zenkaku-escape "0") "$B#0(B")
  340. (its-defrule (concat zenkaku-escape "1") "$B#1(B")
  341. (its-defrule (concat zenkaku-escape "2") "$B#2(B")
  342. (its-defrule (concat zenkaku-escape "3") "$B#3(B")
  343. (its-defrule (concat zenkaku-escape "4") "$B#4(B")
  344. (its-defrule (concat zenkaku-escape "5") "$B#5(B")
  345. (its-defrule (concat zenkaku-escape "6") "$B#6(B")
  346. (its-defrule (concat zenkaku-escape "7") "$B#7(B")
  347. (its-defrule (concat zenkaku-escape "8") "$B#8(B")
  348. (its-defrule (concat zenkaku-escape "9") "$B#9(B")
  349.  
  350. (its-defrule (concat zenkaku-escape "A") "$B#A(B")
  351. (its-defrule (concat zenkaku-escape "B") "$B#B(B")
  352. (its-defrule (concat zenkaku-escape "C") "$B#C(B")
  353. (its-defrule (concat zenkaku-escape "D") "$B#D(B")
  354. (its-defrule (concat zenkaku-escape "E") "$B#E(B")
  355. (its-defrule (concat zenkaku-escape "F") "$B#F(B")
  356. (its-defrule (concat zenkaku-escape "G") "$B#G(B")
  357. (its-defrule (concat zenkaku-escape "H") "$B#H(B")
  358. (its-defrule (concat zenkaku-escape "I") "$B#I(B")
  359. (its-defrule (concat zenkaku-escape "J") "$B#J(B")
  360. (its-defrule (concat zenkaku-escape "K") "$B#K(B")
  361. (its-defrule (concat zenkaku-escape "L") "$B#L(B")
  362. (its-defrule (concat zenkaku-escape "M") "$B#M(B")
  363. (its-defrule (concat zenkaku-escape "N") "$B#N(B")
  364. (its-defrule (concat zenkaku-escape "O") "$B#O(B")
  365. (its-defrule (concat zenkaku-escape "P") "$B#P(B")
  366. (its-defrule (concat zenkaku-escape "Q") "$B#Q(B")
  367. (its-defrule (concat zenkaku-escape "R") "$B#R(B")
  368. (its-defrule (concat zenkaku-escape "S") "$B#S(B")
  369. (its-defrule (concat zenkaku-escape "T") "$B#T(B")
  370. (its-defrule (concat zenkaku-escape "U") "$B#U(B")
  371. (its-defrule (concat zenkaku-escape "V") "$B#V(B")
  372. (its-defrule (concat zenkaku-escape "W") "$B#W(B")
  373. (its-defrule (concat zenkaku-escape "X") "$B#X(B")
  374. (its-defrule (concat zenkaku-escape "Y") "$B#Y(B")
  375. (its-defrule (concat zenkaku-escape "Z") "$B#Z(B")
  376.  
  377. (its-defrule (concat zenkaku-escape "a") "$B#a(B")
  378. (its-defrule (concat zenkaku-escape "b") "$B#b(B")
  379. (its-defrule (concat zenkaku-escape "c") "$B#c(B")
  380. (its-defrule (concat zenkaku-escape "d") "$B#d(B")
  381. (its-defrule (concat zenkaku-escape "e") "$B#e(B")
  382. (its-defrule (concat zenkaku-escape "f") "$B#f(B")
  383. (its-defrule (concat zenkaku-escape "g") "$B#g(B")
  384. (its-defrule (concat zenkaku-escape "h") "$B#h(B")
  385. (its-defrule (concat zenkaku-escape "i") "$B#i(B")
  386. (its-defrule (concat zenkaku-escape "j") "$B#j(B")
  387. (its-defrule (concat zenkaku-escape "k") "$B#k(B")
  388. (its-defrule (concat zenkaku-escape "l") "$B#l(B")
  389. (its-defrule (concat zenkaku-escape "m") "$B#m(B")
  390. (its-defrule (concat zenkaku-escape "n") "$B#n(B")
  391. (its-defrule (concat zenkaku-escape "o") "$B#o(B")
  392. (its-defrule (concat zenkaku-escape "p") "$B#p(B")
  393. (its-defrule (concat zenkaku-escape "q") "$B#q(B")
  394. (its-defrule (concat zenkaku-escape "r") "$B#r(B")
  395. (its-defrule (concat zenkaku-escape "s") "$B#s(B")
  396. (its-defrule (concat zenkaku-escape "t") "$B#t(B")
  397. (its-defrule (concat zenkaku-escape "u") "$B#u(B")
  398. (its-defrule (concat zenkaku-escape "v") "$B#v(B")
  399. (its-defrule (concat zenkaku-escape "w") "$B#w(B")
  400. (its-defrule (concat zenkaku-escape "x") "$B#x(B")
  401. (its-defrule (concat zenkaku-escape "y") "$B#y(B")
  402. (its-defrule (concat zenkaku-escape "z") "$B#z(B")
  403.  
  404. (its-defrule (concat zenkaku-escape " ")  "$B!!(B")
  405. (its-defrule (concat zenkaku-escape "!")  "$B!*(B")
  406. (its-defrule (concat zenkaku-escape "@")  "$B!w(B")
  407. (its-defrule (concat zenkaku-escape "#")  "$B!t(B")
  408. (its-defrule (concat zenkaku-escape "$")  "$B!p(B")
  409. (its-defrule (concat zenkaku-escape "%")  "$B!s(B")
  410. (its-defrule (concat zenkaku-escape "^")  "$B!0(B")
  411. (its-defrule (concat zenkaku-escape "&")  "$B!u(B")
  412. (its-defrule (concat zenkaku-escape "*")  "$B!v(B")
  413. (its-defrule (concat zenkaku-escape "(")  "$B!J(B")
  414. (its-defrule (concat zenkaku-escape ")")  "$B!K(B")
  415. (its-defrule (concat zenkaku-escape "-")  "$B!](B")
  416. (its-defrule (concat zenkaku-escape "=")  "$B!a(B")
  417. (its-defrule (concat zenkaku-escape "`")  "$B!.(B")
  418. (its-defrule (concat zenkaku-escape "\\") "$B!o(B")
  419. (its-defrule (concat zenkaku-escape "|")  "$B!C(B")
  420. (its-defrule (concat zenkaku-escape "_")  "$B!2(B")
  421. (its-defrule (concat zenkaku-escape "+")  "$B!\(B")
  422. (its-defrule (concat zenkaku-escape "~")  "$B!1(B")
  423. (its-defrule (concat zenkaku-escape "[")  "$B!N(B")
  424. (its-defrule (concat zenkaku-escape "]")  "$B!O(B")
  425. (its-defrule (concat zenkaku-escape "{")  "$B!P(B")
  426. (its-defrule (concat zenkaku-escape "}")  "$B!Q(B")
  427. (its-defrule (concat zenkaku-escape ":")  "$B!'(B")
  428. (its-defrule (concat zenkaku-escape ";")  "$B!((B")
  429. (its-defrule (concat zenkaku-escape "\"") "$B!I(B")
  430. (its-defrule (concat zenkaku-escape "'")  "$B!G(B")
  431. (its-defrule (concat zenkaku-escape "<")  "$B!c(B")
  432. (its-defrule (concat zenkaku-escape ">")  "$B!d(B")
  433. (its-defrule (concat zenkaku-escape "?")  "$B!)(B")
  434. (its-defrule (concat zenkaku-escape "/")  "$B!?(B")
  435. (its-defrule (concat zenkaku-escape ",")  "$B!$(B")
  436. (its-defrule (concat zenkaku-escape ".")  "$B!%(B")
  437.  
  438. ;;;
  439. ;;; Hankaku inputs
  440. ;;;
  441.  
  442. ;;(defvar escd '("-" "," "." "/" ";" ":" "[" "\\" "]" "^" "~"))
  443. ;;(its-defrule '("x" escd)  '(escd))
  444.  
  445.  
  446. (defvar digit-characters 
  447.    '( "1"  "2"  "3"  "4" "5"  "6"  "7"  "8"  "9"  "0" ))
  448.  
  449. (defvar symbol-characters 
  450.    '( " "  "!"  "@"  "#"  "$"  "%"  "^"  "&"  "*"  "("  ")"
  451.       "-"  "="  "`"  "\\" "|"  "_"  "+"  "~" "["  "]"  "{"  "}"
  452.       ":"  ";"  "\"" "'"  "<"  ">"  "?"  "/"  ","  "." ))
  453.  
  454. (defvar downcase-alphabets 
  455.    '("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n"
  456.      "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"))
  457.  
  458. (defvar upcase-alphabets
  459.    '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N"
  460.      "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z"))
  461.  
  462. (dolist (digit digit-characters)
  463.   (its-defrule (concat hankaku-escape digit)  digit))
  464.  
  465. (dolist (symbol symbol-characters)
  466.   (its-defrule (concat hankaku-escape symbol) symbol))
  467.  
  468. (dolist (downcase downcase-alphabets)
  469.   (its-defrule (concat hankaku-escape downcase) downcase))
  470.  
  471. (dolist (upcase upcase-alphabets)
  472.   (its-defrule (concat hankaku-escape upcase) upcase))
  473.  
  474. ;;; proposal key bindings for JIS symbols
  475. ;;; 90.3.2  by jiro@math.keio.ac.jp (TANAKA Jiro)
  476.  
  477. (its-defrule   "z1"   "$B!{(B")    (its-defrule   "z!"   "$B!|(B")
  478. (its-defrule   "z2"   "$B"&(B")    (its-defrule   "z@"   "$B"'(B")
  479. (its-defrule   "z3"   "$B"$(B")    (its-defrule   "z#"   "$B"%(B")
  480. (its-defrule   "z4"   "$B""(B")    (its-defrule   "z$"   "$B"#(B")
  481. (its-defrule   "z5"   "$B!~(B")    (its-defrule   "z%"   "$B"!(B")
  482. (its-defrule   "z6"   "$B!y(B")    (its-defrule   "z^"   "$B!z(B")
  483. (its-defrule   "z7"   "$B!}(B")    (its-defrule   "z&"   "$B!r(B")
  484. (its-defrule   "z8"   "$B!q(B")    (its-defrule   "z*"   "$B!_(B")
  485. (its-defrule   "z9"   "$B!i(B")    (its-defrule   "z("   "$B!Z(B")
  486. (its-defrule   "z0"   "$B!j(B")    (its-defrule   "z)"   "$B![(B")
  487. (its-defrule   "z-"   "$B!A(B")    (its-defrule   "z_"   "$B!h(B")    ; z-
  488. (its-defrule   "z="   "$B!b(B")    (its-defrule   "z+"   "$B!^(B")
  489. (its-defrule   "z\\"  "$B!@(B")    (its-defrule   "z|"   "$B!B(B")
  490. (its-defrule   "z`"   "$B!-(B")    (its-defrule   "z~"   "$B!/(B")
  491.  
  492. (its-defrule   "zq"   "$B!T(B")    (its-defrule   "zQ"   "$B!R(B")
  493. (its-defrule   "zw"   "$B!U(B")    (its-defrule   "zW"   "$B!S(B")
  494. ; e
  495. (its-defrule   "zr"   "$B!9(B")    (its-defrule   "zR"   "$B!8(B")    ; zr
  496. (its-defrule   "zt"   "$B!:(B")    (its-defrule   "zT"   "$B!x(B")
  497. ; y u i o
  498. (its-defrule   "zp"   "$B")(B")    (its-defrule   "zP"   "$B",(B")    ; zp
  499. (its-defrule   "z["   "$B!X(B")    (its-defrule   "z{"   "$B!L(B")    ; z[
  500. (its-defrule   "z]"   "$B!Y(B")    (its-defrule   "z}"   "$B!M(B")    ; z]
  501.  
  502. ; a
  503. (its-defrule   "zs"   "$B!3(B")    (its-defrule   "zS"   "$B!4(B")
  504. (its-defrule   "zd"   "$B!5(B")    (its-defrule   "zD"   "$B!6(B")
  505. (its-defrule   "zf"   "$B!7(B")    (its-defrule   "zF"   "$B"*(B")
  506. (its-defrule   "zg"   "$B!>(B")    (its-defrule   "zG"   "$B!=(B")
  507. (its-defrule   "zh"   "$B"+(B")
  508. (its-defrule   "zj"   "$B"-(B")
  509. (its-defrule   "zk"   "$B",(B")
  510. (its-defrule   "zl"   "$B"*(B")
  511. (its-defrule   "z;"   "$B!+(B")    (its-defrule   "z:"   "$B!,(B")
  512. (its-defrule   "z\'"  "$B!F(B")    (its-defrule   "z\""  "$B!H(B")
  513.  
  514. ; z
  515. (its-defrule   "zx"   ":-")    (its-defrule   "zX"   ":-)")
  516. (its-defrule   "zc"   "$B!;(B")    (its-defrule   "zC"   "$B!n(B")    ; zc
  517. (its-defrule   "zv"   "$B"((B")    (its-defrule   "zV"   "$B!`(B")
  518. (its-defrule   "zb"   "$B!k(B")    (its-defrule   "zB"   "$B"+(B")
  519. (its-defrule   "zn"   "$B!l(B")    (its-defrule   "zN"   "$B"-(B")
  520. (its-defrule   "zm"   "$B!m(B")    (its-defrule   "zM"   "$B".(B")
  521. (its-defrule   "z,"   "$B!E(B")    (its-defrule   "z<"   "$B!e(B")
  522. (its-defrule   "z."   "$B!D(B")    (its-defrule   "z>"   "$B!f(B")    ; z.
  523. (its-defrule   "z/"   "$B!&(B")    (its-defrule   "z?"   "$B!g(B")    ; z/
  524.  
  525. ;;; Commented out by K.Handa.  Already defined in a different way.
  526. ;(its-defrule   "va"   "$B%t%!(B")
  527. ;(its-defrule   "vi"   "$B%t%#(B")
  528. ;(its-defrule   "vu"   "$B%t(B")
  529. ;(its-defrule   "ve"   "$B%t%'(B")
  530. ;(its-defrule   "vo"   "$B%t%)(B")
  531.  
  532.  
  533.